home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer (Italian) 48 / PC Gamer IT CD 48 2-2.iso / Starsiege / tribesdemo.exe / Disk1 / data1.cab / Tribes_Demo / base / scripts.vol / PlayerSetup.cs < prev    next >
Encoding:
Text File  |  1999-09-14  |  14.6 KB  |  536 lines
  1. //------------------------------------
  2. //
  3. // GUI screen functions
  4. //
  5. //------------------------------------
  6.  
  7. function ClearPlayerConfig()
  8. {
  9.     Control::setValue(IDCTG_PLYR_CFG_NAME, "");
  10.     Control::setValue(IDCTG_PLYR_CFG_EMAIL, "");
  11.     Control::setValue(IDCTG_PLYR_CFG_TRIBE, "");
  12.     Control::setValue(IDCTG_PLYR_CFG_URL, "");
  13.     Control::setValue(IDCTG_PLYR_CFG_INFO, "");
  14.     Control::setValue(IDCTG_PLYR_CFG_SCRIPT, "");
  15.     Control::setValue(IDCTG_PLYR_CFG_GENDER_M, "TRUE");
  16.     Control::setValue(IDCTG_PLYR_CFG_GENDER_F, "FALSE");
  17.     FGCombo::clear(IDCTG_PLYR_CFG_SKIN);
  18.  
  19.     $PCFG::Name            = "";
  20.     $PCFG::RealName    = ""; 
  21.     $PCFG::EMail        = ""; 
  22.     $PCFG::Tribe        = ""; 
  23.     $PCFG::URL            = ""; 
  24.     $PCFG::Info            = ""; 
  25.     $PCFG::Gender        = "MALE"; 
  26.     $PCFG::Script        = ""; 
  27.     $PCFG::Voice        = ""; 
  28.     $PCFG::SkinBase    = ""; 
  29. }
  30.  
  31. function PlayerSetupGui::onOpen()
  32. {
  33.    // Must do twice.  A dml resource could be referencing bitmaps. DMM
  34.    purgeResources();
  35.    purgeResources();
  36.  
  37.     //clear all the config controls to start
  38.     ClearPlayerConfig();
  39.  
  40.     //first add all the players to the player list combo box
  41.     $PCFG::LastPlayer = -1;
  42.    for(%i = 0; $PCFG::Name[%i] != ""; %i++)
  43.     {
  44.         FGCombo::addEntry(IDCTG_PLYR_CFG_COMBO, $PCFG::Name[%i], %i);
  45.         $PCFG::LastPlayer = %i;
  46.     }
  47.  
  48.     //verify the current player
  49.     if (($PCFG::CurrentPlayer == "") || ($PCFG::name[$PCFG::CurrentPlayer] == "") ||
  50.                                                     ($PCFG::CurrentPlayer > $PCFG::LastPlayer))
  51.     {
  52.         if ($PCFG::LastPlayer < 0)
  53.         {
  54.             $PCFG::CurrentPlayer = -1;
  55.         }
  56.         else
  57.         {
  58.             $PCFG::CurrentPlayer = 0;
  59.         }
  60.     }
  61.  
  62.     //now add all voices to the voice list box
  63.     FGCombo::clear(IDCTG_PLYR_CFG_VOICE);
  64.     %voiceCount = 0;
  65.     %voiceSet = File::findFirst("*.whello.wav");
  66.     while (%voiceSet != "")
  67.     {
  68.         %strIndex = String::findSubStr(%voiceSet, ".whello.wav");
  69.         %voiceBase = String::getSubStr(%voiceSet, 0, %strIndex);
  70.  
  71.         if (%voiceBase != "")
  72.         {
  73.             $VoiceArray[%voiceCount] = %voiceBase;
  74.             FGCombo::addEntry(IDCTG_PLYR_CFG_VOICE, %voiceBase, %voiceCount);
  75.             %voiceCount = %voiceCount + 1;
  76.         }
  77.  
  78.       %voiceSet = File::findNext("*.whello.wav");
  79.     }
  80.  
  81.     //add all the male skins to the array
  82.     %skinCount = 0;
  83.     %skin = File::findFirst("*.larmor.bmp");
  84.     while (%skin != "")
  85.     {
  86.         $SkinArray[%skinCount] = %skin;
  87.         %skinCount = %skinCount + 1;
  88.         %skin = File::findNext("*.larmor.bmp");
  89.     }
  90.  
  91.     //add all the female skiins to the array
  92.     %skin = File::findFirst("*.lfemale.bmp");
  93.     while (%skin != "")
  94.     {
  95.         $SkinArray[%skinCount] = %skin;
  96.         %skinCount = %skinCount + 1;
  97.         %skin = File::findNext("*.lfemale.bmp");
  98.     }
  99.  
  100.     if ($PCFG::CurrentPlayer >= 0)
  101.     {
  102.         ReadPlayerConfig($PCFG::CurrentPlayer);
  103.     }
  104.     else
  105.     {
  106.         OpenNewPlayerDialog();
  107.     }
  108. }
  109.  
  110. function OpenNewPlayerDialog()
  111. {
  112.     //push the dialog
  113.    GuiPushDialog(MainWindow, "gui\\NewPlayer.gui");
  114.  
  115.     //if we don't have any players, disable the cancel button
  116.     if ($PCFG::LastPlayer < 0)
  117.     {
  118.         Control::setActive(IDCTG_PLYR_CFG_CANCEL, FALSE);
  119.     }
  120.     else
  121.     {
  122.         Control::setActive(IDCTG_PLYR_CFG_CANCEL, TRUE);
  123.     }
  124.  
  125.     //disable the done button
  126.     Control::setActive(IDCTG_NEW_PLAYER, FALSE);
  127. }
  128.  
  129. function PlayerSetupGui::onClose()
  130. {
  131.     WriteCurrentPlayerConfig();
  132.    export("PCFG::*", "config\\Players.cs", False);
  133. }
  134.  
  135. function ReadPlayerConfig(%cfgNum)
  136. {
  137.     echo("Reading player: " @ %cfgNum);
  138.  
  139.     if (%cfgNum >= 0 && %cfgNum <= $PCFG::LastPlayer)
  140.     {
  141.         //load the values into the gui controls
  142.         Control::setValue(IDCTG_PLYR_CFG_NAME, $PCFG::RealName[%cfgNum]);
  143.         Control::setValue(IDCTG_PLYR_CFG_EMAIL, $PCFG::EMail[%cfgNum]);
  144.         Control::setValue(IDCTG_PLYR_CFG_TRIBE, $PCFG::Tribe[%cfgNum]);
  145.         Control::setValue(IDCTG_PLYR_CFG_URL, $PCFG::URL[%cfgNum]);
  146.         Control::setValue(IDCTG_PLYR_CFG_INFO, $PCFG::Info[%cfgNum]);
  147.         Control::setValue(IDCTG_PLYR_CFG_Script, $PCFG::Script[%cfgNum]);
  148.  
  149.         if (String::ICompare($PCFG::Gender[%cfgNum], "MALE") == 0)
  150.         {
  151.             Control::setValue(IDCTG_PLYR_CFG_GENDER_M, "TRUE");
  152.             Control::setValue(IDCTG_PLYR_CFG_GENDER_F, "FALSE");
  153.         }
  154.         else
  155.         {
  156.             Control::setValue(IDCTG_PLYR_CFG_GENDER_M, "FALSE");
  157.             Control::setValue(IDCTG_PLYR_CFG_GENDER_F, "TRUE");
  158.         }
  159.  
  160.         //copy the values into the current set used by FearCSDelegate.cpp
  161.         $PCFG::Name            = $PCFG::Name[%cfgNum];
  162.         $PCFG::RealName    = $PCFG::RealName[%cfgNum];
  163.         $PCFG::EMail        = $PCFG::EMail[%cfgNum];
  164.         $PCFG::Tribe        = $PCFG::Tribe[%cfgNum];
  165.         $PCFG::URL            = $PCFG::URL[%cfgNum];
  166.         $PCFG::Info            = $PCFG::Info[%cfgNum];
  167.         $PCFG::Gender        = $PCFG::Gender[%cfgNum];
  168.         $PCFG::Script        = $PCFG::Script[%cfgNum];
  169.         
  170.         //set the selected player in the combo box
  171.         $PCFG::CurrentPlayer = %cfgNum;
  172.         FGCombo::setSelected(IDCTG_PLYR_CFG_COMBO, $PCFG::CurrentPlayer);
  173.  
  174.         //make sure the voice exists
  175.         %voiceSet = 0;
  176.         %found = -1;
  177.         while ($VoiceArray[%voiceSet] != "")
  178.         {
  179.             if (String::ICompare($VoiceArray[%voiceSet], $PCFG::Voice[%cfgNum]) == 0)
  180.             {
  181.                 %found = %voiceSet;
  182.            }
  183.             %voiceSet = %voiceSet + 1;
  184.         }
  185.  
  186.         //see if we found the voice set
  187.         if (%found >= 0)
  188.         {
  189.             $PCFG::Voice        = $PCFG::Voice[%cfgNum];
  190.             FGCombo::setSelected(IDCTG_PLYR_CFG_VOICE, %found);
  191.         }
  192.         else
  193.         {
  194.             //find a voice set that exists
  195.             %searchVoiceSet = $PCFG::Gender[$PCFG::CurrentPlayer] @ 1;
  196.             %voiceSet = 0;
  197.             %found = -1;
  198.             while ($VoiceArray[%voiceSet] != "")
  199.             {
  200.                 if (String::ICompare($VoiceArray[%voiceSet], %searchVoiceSet) == 0)
  201.                 {
  202.                     %found = %voiceSet;
  203.                }
  204.                 %voiceSet = %voiceSet + 1;
  205.             }
  206.             if (%found >= 0)
  207.             {
  208.                 $PCFG::Voice[%cfgNum]    = %searchVoiceSet;
  209.                 $PCFG::Voice                = $PCFG::Voice[%cfgNum];
  210.                 FGCombo::setSelected(IDCTG_PLYR_CFG_VOICE, %found);
  211.             }
  212.         }
  213.  
  214.         //add the correct skins to the combo box
  215.         FGCombo::clear(IDCTG_PLYR_CFG_SKIN);
  216.         %skin = 0;
  217.         %found = -1;
  218.         while ($SkinArray[%skin] != "")
  219.         {
  220.             if (! String::ICompare($PCFG::Gender[$PCFG::CurrentPlayer], "MALE"))
  221.             {
  222.                 %strIndex = String::findSubStr($SkinArray[%skin], ".larmor");
  223.             }
  224.             else
  225.             {
  226.                 %strIndex = String::findSubStr($SkinArray[%skin], ".lfemale");
  227.             }
  228.             if (%strIndex >= 0)
  229.             {
  230.                 %skinBase = String::getSubStr($SkinArray[%skin], 0, %strIndex);
  231.             if(String::ICompare(%skinBase, $PCFG::SkinBase[%cfgNum]) == 0)
  232.                %found = %skin;
  233.                 FGCombo::addEntry(IDCTG_PLYR_CFG_SKIN, %skinBase, %skin);
  234.             }
  235.             %skin++;
  236.         }
  237.  
  238.         //see if we found the skin
  239.         if (%found >= 0)
  240.         {
  241.             setSkinBase(%found, $PCFG::Gender[%cfgNum]);
  242.         }
  243.         else
  244.         {
  245.             //find a default skin
  246.             %skin = 0;
  247.             %found = -1;
  248.             if (! String::ICompare($PCFG::Gender[$PCFG::CurrentPlayer], "MALE"))
  249.             {
  250.                 while ($SkinArray[%skin] != "")
  251.                 {
  252.                     %strIndex = String::findSubStr($SkinArray[%skin], ".larmor");
  253.                     if (%strIndex >= 0)
  254.                     {
  255.                         %found = %skin;
  256.                     }
  257.                     %skin = %skin + 1;
  258.                 }
  259.             }
  260.             else
  261.             {
  262.                 while ($SkinArray[%skin] != "")
  263.                 {
  264.                     %strIndex = String::findSubStr($SkinArray[%skin], ".lfemale");
  265.                     if (%strIndex >= 0)
  266.                     {
  267.                         %found = %skin;
  268.                     }
  269.                     %skin = %skin + 1;
  270.                 }
  271.             }
  272.  
  273.             if (%found >= 0)
  274.             {
  275.                 $PCFG::SkinBase[%cfgNum]    = $SkinArray[%found];
  276.                 setSkinBase(%found, $PCFG::Gender[%cfgNum]);
  277.             }
  278.         }
  279.     }
  280. }
  281.     
  282. function WriteCurrentPlayerConfig()
  283. {
  284.     if ($PCFG::CurrentPlayer >= 0 && $PCFG::CurrentPlayer <= $PCFG::LastPlayer)
  285.     {
  286.         //get the values from the gui controls
  287.         $PCFG::RealName[$PCFG::CurrentPlayer]    = Control::getValue(IDCTG_PLYR_CFG_NAME);
  288.         $PCFG::EMail[$PCFG::CurrentPlayer]        = Control::getValue(IDCTG_PLYR_CFG_EMAIL);
  289.         $PCFG::Tribe[$PCFG::CurrentPlayer]        = Control::getValue(IDCTG_PLYR_CFG_TRIBE);
  290.         $PCFG::URL[$PCFG::CurrentPlayer]            = Control::getValue(IDCTG_PLYR_CFG_URL);
  291.         $PCFG::Info[$PCFG::CurrentPlayer]        = Control::getValue(IDCTG_PLYR_CFG_INFO);
  292.         $PCFG::Script[$PCFG::CurrentPlayer]        = Control::getValue(IDCTG_PLYR_CFG_SCRIPT);
  293.  
  294.         //Gender
  295.         if (String::ICompare(Control::getValue(IDCTG_PLYR_CFG_GENDER_M), "TRUE") == 0)
  296.         {
  297.             $PCFG::Gender[$PCFG::CurrentPlayer]    = "MALE";
  298.         }
  299.         else
  300.         {
  301.             $PCFG::Gender[$PCFG::CurrentPlayer]    = "FEMALE";
  302.         }
  303.  
  304.         //voice
  305.         $PCFG::Voice[$PCFG::CurrentPlayer]        = $VoiceArray[FGCombo::getSelected(IDCTG_PLYR_CFG_VOICE)];
  306.  
  307.         //skin
  308.         $PCFG::SkinBase[$PCFG::CurrentPlayer]        = $PCFG::SkinBase;
  309.  
  310.         //update the set of vars used by FearCSDelegate
  311.         $PCFG::Name            = $PCFG::Name[$PCFG::CurrentPlayer];
  312.         $PCFG::RealName    = $PCFG::RealName[$PCFG::CurrentPlayer];
  313.         $PCFG::EMail        = $PCFG::EMail[$PCFG::CurrentPlayer];
  314.         $PCFG::Tribe        = $PCFG::Tribe[$PCFG::CurrentPlayer];
  315.         $PCFG::URL            = $PCFG::URL[$PCFG::CurrentPlayer];
  316.         $PCFG::Info            = $PCFG::Info[$PCFG::CurrentPlayer];
  317.         $PCFG::Gender        = $PCFG::Gender[$PCFG::CurrentPlayer];
  318.         $PCFG::Script        = $PCFG::Script[$PCFG::CurrentPlayer];
  319.         $PCFG::Voice        = $PCFG::Voice[$PCFG::CurrentPlayer];
  320.         $PCFG::SkinBase     = $PCFG::SkinBase[$PCFG::CurrentPlayer];
  321.     }
  322. }
  323.     
  324. function SelectedPlayerConfig()
  325. {
  326.     WriteCurrentPlayerConfig();
  327.     ReadPlayerConfig(FGCombo::getSelected(IDCTG_PLYR_CFG_COMBO));
  328. }
  329.  
  330. function AddPlayerConfig(%newPlayer)
  331. {
  332.     WriteCurrentPlayerConfig();
  333.     if (%newPlayer != "")
  334.     {
  335.         //first search, see if the player name already exists
  336.         %found = -1;
  337.         %plyr = 0;
  338.         while (%plyr <= $PCFG::lastPlayer)
  339.         {
  340.             if (! String::ICompare($PCFG::Name[%plyr], %newPlayer))
  341.             {
  342.                 %found = %plyr;
  343.             }
  344.             %plyr = %plyr + 1;
  345.         }
  346.  
  347.         if (%found >= 0)
  348.         {
  349.             ReadPlayerConfig(%found);
  350.         }
  351.         else
  352.         {
  353.             //add it to the end
  354.             $PCFG::LastPlayer = $PCFG::LastPlayer + 1;
  355.             
  356.             //create the vars
  357.             $PCFG::Name[$PCFG::LastPlayer]        = %newPlayer;
  358.             $PCFG::RealName[$PCFG::LastPlayer]    = "";
  359.             $PCFG::EMail[$PCFG::LastPlayer]        = "";
  360.             $PCFG::Tribe[$PCFG::LastPlayer]        = "";
  361.             $PCFG::URL[$PCFG::LastPlayer]            = "";
  362.             $PCFG::Info[$PCFG::LastPlayer]        = "";
  363.             $PCFG::Gender[$PCFG::LastPlayer]        = "MALE";
  364.             $PCFG::Script[$PCFG::LastPlayer]        = "";
  365.             $PCFG::Voice[$PCFG::LastPlayer]        = "";
  366.             $PCFG::SkinBase[$PCFG::LastPlayer]    = "";
  367.  
  368.             //add it to the list
  369.             FGCombo::addEntry(IDCTG_PLYR_CFG_COMBO, $PCFG::Name[$PCFG::LastPlayer], $PCFG::LastPlayer);
  370.  
  371.             //set the added player as the current
  372.             ReadPlayerConfig($PCFG::LastPlayer);
  373.         }
  374.     }
  375. }
  376.  
  377. function DeleteCurrentPlayerConfig()
  378. {
  379.     //first close the dialog popup
  380.     GuiPopDialog(MainWindow, 0);
  381.  
  382.     if ($PCFG::CurrentPlayer >= 0 && $PCFG::CurrentPlayer <= $PCFG::LastPlayer)
  383.     {
  384.         //copy the last player entries over top of the one being deleted
  385.         if ($PCFG::CurrentPlayer < $PCFG::LastPlayer)
  386.         {
  387.             $PCFG::Name[$PCFG::CurrentPlayer]        = $PCFG::Name[$PCFG::LastPlayer];
  388.             $PCFG::RealName[$PCFG::CurrentPlayer]    = $PCFG::RealName[$PCFG::LastPlayer];
  389.             $PCFG::EMail[$PCFG::CurrentPlayer]        = $PCFG::EMail[$PCFG::LastPlayer];
  390.             $PCFG::Tribe[$PCFG::CurrentPlayer]        = $PCFG::Tribe[$PCFG::LastPlayer];
  391.             $PCFG::URL[$PCFG::CurrentPlayer]            = $PCFG::URL[$PCFG::LastPlayer];
  392.             $PCFG::Info[$PCFG::CurrentPlayer]        = $PCFG::Info[$PCFG::LastPlayer];
  393.             $PCFG::Gender[$PCFG::CurrentPlayer]        = $PCFG::Gender[$PCFG::LastPlayer];
  394.             $PCFG::Script[$PCFG::CurrentPlayer]        = $PCFG::Script[$PCFG::LastPlayer];
  395.             $PCFG::Voice[$PCFG::CurrentPlayer]        = $PCFG::Voice[$PCFG::LastPlayer];
  396.             $PCFG::SkinBase[$PCFG::CurrentPlayer]    = $PCFG::SkinBase[$PCFG::LastPlayer];
  397.  
  398.  
  399.             //delete it from the combo box
  400.             FGCombo::deleteEntry(IDCTG_PLYR_CFG_COMBO, $PCFG::CurrentPlayer);
  401.  
  402.             //delete the last entry, and re-add it with the new ID number
  403.             FGCombo::deleteEntry(IDCTG_PLYR_CFG_COMBO, $PCFG::LastPlayer);
  404.             FGCombo::addEntry(IDCTG_PLYR_CFG_COMBO, $PCFG::Name[$PCFG::CurrentPlayer], $PCFG::CurrentPlayer);
  405.         }
  406.         else
  407.         {
  408.             //delete it from the combo box
  409.             FGCombo::deleteEntry(IDCTG_PLYR_CFG_COMBO, $PCFG::CurrentPlayer);
  410.         }
  411.         
  412.         //erase the last player config
  413.         $PCFG::Name[$PCFG::LastPlayer]        = "";
  414.         $PCFG::RealName[$PCFG::LastPlayer]    = "";
  415.         $PCFG::EMail[$PCFG::LastPlayer]        = "";
  416.         $PCFG::Tribe[$PCFG::LastPlayer]        = "";
  417.         $PCFG::URL[$PCFG::LastPlayer]            = "";
  418.         $PCFG::Info[$PCFG::LastPlayer]        = "";
  419.         $PCFG::Gender[$PCFG::LastPlayer]        = "";
  420.         $PCFG::Script[$PCFG::LastPlayer]        = "";
  421.         $PCFG::Voice[$PCFG::LastPlayer]        = "";
  422.         $PCFG::SkinBase[$PCFG::LastPlayer]    = "";
  423.  
  424.         //decriment the last player index
  425.         $PCFG::LastPlayer = $PCFG::LastPlayer - 1;
  426.  
  427.         //now set the current player to be the first
  428.         if ($PCFG::LastPlayer >= 0)
  429.         {
  430.             ReadPlayerConfig(0);
  431.         }
  432.         else
  433.         {
  434.             ClearPlayerConfig();
  435.             OpenNewPlayerDialog();
  436.         }
  437.     }
  438. }
  439.  
  440. function SwitchGender(%gender)
  441. {
  442.     //see if we actually switched genders
  443.     if (String::ICompare(%gender, $PCFG::Gender[$PCFG::CurrentPlayer]) != 0)
  444.     {
  445.         $PCFG::Gender[$PCFG::CurrentPlayer] = %gender;
  446.  
  447.         //find a voice set that exists
  448.         %searchVoiceSet = $PCFG::Gender[$PCFG::CurrentPlayer] @ "1";
  449.         %voiceSet = 0;
  450.         %found = -1;
  451.         while ($VoiceArray[%voiceSet] != "")
  452.         {
  453.             if (String::ICompare($VoiceArray[%voiceSet], %searchVoiceSet) == 0)
  454.             {
  455.                 %found = %voiceSet;
  456.            }
  457.             %voiceSet = %voiceSet + 1;
  458.         }
  459.         if (%found >= 0)
  460.         {
  461.             $PCFG::Voice[$PCFG::CurrentPlayer]    = %searchVoiceSet;
  462.             FGCombo::setSelected(IDCTG_PLYR_CFG_VOICE, %found);
  463.         }
  464.  
  465.         //set the skin combo
  466.         //add the correct skins to the combo box
  467.         FGCombo::clear(IDCTG_PLYR_CFG_SKIN);
  468.         %skin = 0;
  469.         while ($SkinArray[%skin] != "")
  470.         {
  471.             if (! String::ICompare($PCFG::Gender[$PCFG::CurrentPlayer], "MALE"))
  472.             {
  473.                 %strIndex = String::findSubStr($SkinArray[%skin], ".larmor");
  474.             }
  475.             else
  476.             {
  477.                 %strIndex = String::findSubStr($SkinArray[%skin], ".lfemale");
  478.             }
  479.             if (%strIndex >= 0)
  480.             {
  481.                 %skinBase = String::getSubStr($SkinArray[%skin], 0, %strIndex);
  482.                 FGCombo::addEntry(IDCTG_PLYR_CFG_SKIN, %skinBase, %skin);
  483.             }
  484.             %skin = %skin + 1;
  485.         }
  486.  
  487.         //see if we can set the original
  488.         %skin = FGCombo::findEntry(IDCTG_PLYR_CFG_SKIN, $PCFG::SkinBase);
  489.         if (%skin < 0)
  490.         {
  491.             FGCombo::selectNext(IDCTG_PLYR_CFG_SKIN);
  492.             %skin = FGCombo::getSelected(IDCTG_PLYR_CFG_SKIN);
  493.         }
  494.  
  495.         if (%skin >= 0)
  496.         {
  497.             $PCFG::SkinBase[$PCFG::CurrentPlayer] = $SkinArray[%skin];
  498.             setSkinBase(%skin, $PCFG::Gender[$PCFG::CurrentPlayer]);
  499.         }
  500.     }
  501. }
  502.  
  503. function setSkinBase(%index, %gender)
  504. {
  505.     //strip off the extention
  506.     if (! String::ICompare(%gender, "MALE"))
  507.     {
  508.         %strIndex = String::findSubStr($SkinArray[%index], ".larmor");
  509.     }
  510.     else
  511.     {
  512.         %strIndex = String::findSubStr($SkinArray[%index], ".lfemale");
  513.     }
  514.     if (%strIndex >= 0)
  515.     {
  516.         %skinBase = String::getSubStr($SkinArray[%index], 0, %strIndex);
  517.         $PCFG::SkinBase = %skinBase;
  518.     }
  519.     else
  520.     {
  521.         $PCFG::SkinBase = "";
  522.     }
  523.  
  524.     FGCombo::setSelected(IDCTG_PLYR_CFG_SKIN, %index);
  525.     if ($PCFG::SkinBase != "")
  526.     {
  527.         FGSkin::set(IDCTG_PLAYER_TS, $PCFG::SkinBase, %gender); 
  528.     }
  529. }
  530.  
  531. function selectPlayerSkin()
  532. {
  533.     setSkinBase(FGCombo::getSelected(IDCTG_PLYR_CFG_SKIN), $PCFG::Gender[$PCFG::CurrentPlayer]);
  534. }
  535.  
  536.